home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ WSH 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-10-27  |  2.0 KB  |  76 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Program Options\Built in Windows Apps\Windows Scripting Host"
  5. "NAME"="Windows Scripting Host Options"
  6. "VERSION"="2.03"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable Windows Scripting Host"
  9. "TEXT 2"="Display copyright message when running a script"
  10. "TEXT 3"="Allow scripts to be run from remote machines (NT/2K/XP)"
  11. "DESCRIPTION 1"="Some options for Windows Scripting Host."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Thanks to CptSiskoX for the settings and the idea."
  16.  
  17.  
  18.  ' if this path exists in the registry, the plug-in will be enabled. if it does
  19.  ' not exist, the plug-in will be disable set to ="" to ignore this check and alway
  20.  ' enable the plug-in, regardless if the path exists or not
  21.  sCheckPath="HKLM\Software\Microsoft\Windows Script Host\"
  22.  
  23.  sV1_Path="HKLM\Software\Microsoft\Windows Script Host\Settings\Enable"  'DW
  24.  sV2_Path="HKLM\Software\Microsoft\Windows Script Host\Settings\DisplayLogo"  'STRING!
  25.  sV3_Path="HKLM\Software\Microsoft\Windows Script Host\Settings\Remote"  'DW
  26.  
  27. Sub Plugin_Initialize 
  28.  s=RegReadValue(sV1_Path)
  29.  if s="1" or IsEmpty(s)=true then
  30.     Call SetUIElement(1,true)
  31.  end if
  32.  
  33.  s=RegReadValue(sV2_Path)
  34.  if s="1" or IsEmpty(s)=true then
  35.     Call SetUIElement(2,true)
  36.  end if
  37.  
  38.  s=RegReadValue(sV3_Path)
  39.  if s="1" then
  40.     Call SetUIElement(3,true)
  41.  end if
  42.  
  43. end Sub
  44.  
  45.  
  46. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  s=GetUIElement(1)
  48.  if s=true then
  49.     Call RegWriteValue(sV1_Path,"1",2)
  50.  else
  51.     Call RegWriteValue(sV1_Path,"0",2)
  52.  end if
  53.  
  54.  s=GetUIElement(2)
  55.  if s=true then
  56.     Call RegWriteValue(sV2_Path,"1",1)
  57.  else
  58.     Call RegWriteValue(sV2_Path,"0",1)
  59.  end if
  60.  
  61.  s=GetUIElement(3)
  62.  if s=true then
  63.     Call RegWriteValue(sV3_Path,"1",2)
  64.  else
  65.     Call RegWriteValue(sV3_Path,"0",2)
  66.  end if
  67.  
  68. end Sub
  69.  
  70.  
  71. Sub Plugin_Terminate 
  72. End Sub
  73.  
  74.  
  75.  
  76.